home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / ACC_CPX / MABOOG / BOOTPCMC.Q < prev    next >
Encoding:
Text File  |  1989-06-16  |  2.2 KB  |  78 lines
  1. ;--------------------------------------
  2. ;      Bootsektor-Pictureleser
  3. ;      Color/Monoversion
  4. ;      Version 0.5c/m
  5. ;      (c)1989 by Martin Möller
  6. ;                 Klopstockweg 23
  7. ;                 4440 Rheine
  8. ;--------------------------------------
  9. ; Liest Bild PICTURE.PI1 von Disk A:
  10. ; oder falls Monochrome
  11. ; Liest Bild PICTURE.PIC von Disk A:
  12. ; Bild liegt im Degas/Screenformat vor
  13. ;--------------------------------------
  14.        move.w #$00,$482   ; kein Command.Prg laden
  15.        move.w #$04,-(sp)  ; Getrez()
  16.        trap #14           ; do it!
  17.        addq.l #2,sp
  18.        cmp.w #$0,D0       ; Low-Resolution
  19.        bne mono           ; Nein, Test-Mono
  20.        move.w #2,-(sp)    ; read/write
  21.        pea fname          ; A:\PICTURE.PI1
  22.        move.w #$3D,-(sp)  ; Fopen
  23.        trap #1
  24.        addq.l #8,sp
  25.        tst.w D0
  26.        bmi error
  27.        move.w d0,d7       ; Handle nach D7
  28.        pea adr            ; def. Block
  29.        move.l #34,-(sp)   ; 34 Byte
  30.        move.w d7,-(sp)    ; Handle
  31.        move.w #$3F,-(sp)  ; Fread
  32.        trap #1
  33.        add.l #12,sp
  34.        pea color          ; Colorblock
  35.        move.w #$06,-(sp)  ; Setpalette
  36.        trap #14
  37.        addq.l #6,sp
  38. scrn:  move.w #$02,-(sp)  ; Physbase
  39.        trap #14
  40.        addq.l #2,sp
  41.        move.l D0,-(sp)    ; Physbase
  42.        move.l #32000,-(sp) ; Bilddaten
  43.        move.w d7,-(sp)    ; Handle
  44.        move.w #$3f,-(sp)  ; Fread
  45.        trap #1
  46.        add.l #12,sp
  47.        move.w d7,-(sp)    ; Handle
  48.        move.w #$3E,-(sp)  ; Fclose
  49.        trap #1
  50.        addq.l #4,sp
  51.        move.w #$02,-(sp)  ; 'con:'
  52.        move.w #$02,-(sp)  ; Bconin
  53.        trap #13
  54.        addq.l #$04,sp
  55. error: clr.l D0           ; all right!
  56.        rts                ; return if you want!
  57. mono:  move.w #2,-(sp)
  58.        pea monam
  59.        move.w #$3D,-(sp)
  60.        trap #1
  61.        addq.l #8,sp
  62.        tst.w D0
  63.        bmi error
  64.        move.w D0,D7
  65.        bra scrn
  66. txt:   dc.b "Hallo, hier bin ich!",$00,$00
  67.        align.w
  68. hndl:  dc.w $0000
  69. fname: dc.b "A:\PICTURE.PI1",$00
  70.        align.w
  71. monam: dc.b "A:\PICTURE.PIC",$00
  72.        align.w
  73. adr:   dc.b $00,$00
  74. color: dc.w $000,$001,$002,$003,$004,$005,$006,$007
  75.        dc.w $008,$009,$010,$011,$012,$013,$014,$015
  76.        end
  77.